home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / View / AutodocViewerLite / Install < prev   
Encoding:
Text File  |  2000-05-08  |  4.2 KB  |  160 lines
  1. ; $VER: AutodocViewerLite v2.0 Install Script (2.5.2000)
  2.  
  3. (effect "upper_right" "radial" $FFFFFF $0000FF)
  4.  
  5. (set #default-dest "SYS:" )
  6.  
  7. (set #language (getenv "Language" ))
  8.  
  9. (set #applicationname (cat "AutodocViewerLite v2.0" ))
  10. (set #applicationdate (cat "2. May 2000" ))
  11.  
  12. (set #wbversion 0)
  13. (set #wbversion (getversion "libs:version.library" ))
  14. (set #wbversion (/ #wbversion 65536) )
  15.  
  16. (complete 0)
  17.  
  18. ;============================================================
  19. ; English strings
  20.  
  21. (set default_lang 4)
  22. (set default_country 1)
  23. (set #languages 1)
  24.  
  25. (set #msg-welcome
  26. (cat "\n\n" #applicationname"\n"
  27.      #applicationdate"\n"
  28.      "Copyright © 1994-2000 Ronny Tennebekk\n\n\n"
  29.      "\nThis script will install " #applicationname "\n"
  30.      "on your harddisk...\n"
  31.     ))
  32.  
  33. (set #msg-selectpath
  34. (cat "Please, select were to install " #applicationname ".\n"
  35.      "An directory called AutodocViewer will be created!"
  36.      ))
  37.  
  38. (set #msg-badkick
  39. (cat "You must have Kickstart v3.1 and AmigaOS 3.5"
  40.      "installed to run " #applicationname "!"
  41.      ))
  42.  
  43. (set #confirm-language
  44. (cat "Please, select language to install!!!\n\n"
  45.      #applicationname " has no built-in language..."
  46.      ))
  47.  
  48. (set #confirm-icon
  49. (cat "Please, select icon type to install\n\n"
  50.      ))
  51.  
  52. ;(set #choice-magicwb "MagicWB" )
  53. ;(set #choice-glowicons "GlowIcons" )
  54.  
  55. (set #choice-english "English" )
  56. ;(set #choice-norwegian "Norwegian" )
  57.  
  58. (set #installing-library "Installing autodoc.library..." )
  59. (set #installing-autodocviewer "Installing " #applicationname "..." )
  60. (set #installing-images "Installing images..." )
  61. (set #installing-language "Installing language catalog..." )
  62.  
  63.  
  64. ;============================================================
  65. ; make sure we are running under a KS3.1
  66.  
  67. (if (< #wbversion 40)
  68. (   (exit #msg-badkick (quiet))
  69.     ))
  70.  
  71.  
  72. ;============================================================
  73. ; the fun begins
  74.  
  75. (message #msg-welcome)
  76.  
  77. (welcome)
  78.  
  79. (showmedia "logo" "images/autodocviewerlogo.iff" "upper_left" "none" 1)
  80.  
  81. (set ask-progdir
  82.     (askdir (prompt #msg-selectpath)
  83.             (help @askdir-help)
  84.             (default #default-dest)
  85.             (disk)
  86.     ))
  87.  
  88. ;(set ask-icontype
  89. ;    (askchoice (prompt #confirm-icon)
  90. ;               (help @askchoice-help)
  91. ;               (choices #choice-magicwb #choice-glowicons)
  92. ;    ))
  93.  
  94. (set ask-language
  95.     (askchoice (prompt #confirm-language)
  96.                (help @askchoice-help)
  97.                (choices #choice-english)  ; #choice-norwegian)
  98.     ))
  99.  
  100. (set #language (select ask-language "english"
  101.                             ;        "norsk"
  102.                             ;   "dansk"
  103.                             ;   "deutsch"
  104.                             ;   "español"
  105.                             ;   "français"
  106.                             ;   "italiano"
  107.                             ;   "nederlands"
  108.                             ;   "português"
  109.                             ;   "svenska"
  110.                                ))
  111.  
  112.  
  113. ;============================================================
  114. ; Copy autodoc.library
  115.  
  116. (copylib   (prompt #installing-library)
  117.            (source "libs/autodoc.library")
  118.            (help @copylib-help)
  119.            (dest "Libs:")
  120.            (confirm)
  121.            )
  122.  
  123. ;============================================================
  124. ; Create AutodocViewer directories
  125.  
  126. (makedir (tackon ask-progdir "AutodocViewer" ))
  127. (makedir (tackon ask-progdir "AutodocViewer/Images" ))
  128.  
  129.  
  130. ;============================================================
  131. ; Copy files
  132.  
  133. (copyfiles (prompt #installing-autodocviewer)
  134.            (source ( "AutodocViewer" ))
  135.            (dest (tackon ask-progdir (cat "AutodocViewer" )))
  136.            (help @copyfiles-help)
  137.            (infos)
  138.            )
  139.  
  140. (copyfiles (prompt #installing-images)
  141.            (source ( "Images" ))
  142.            (dest (tackon ask-progdir (cat "AutodocViewer/Images" )))
  143.            (help @copyfiles-help)
  144.            (all)
  145.            )
  146.  
  147. (copyfiles (prompt #installing-language)
  148.            (source (tackon "Catalogs/" #language ))
  149.            (dest (tackon "Locale:Catalogs/" #language ))
  150.            (help @copyfiles-help)
  151.            (all)
  152.            )
  153.  
  154. ;============================================================
  155. ; Installization complete
  156.  
  157. (set #default-dest ask-progdir)
  158. (complete 100)
  159. (exit)
  160.